The Trig Explorer/The Trig Explorer.iso/mac/Explorer/START.dxr/00101.ls

Text File | 1998-07-22 | 548 b | 24 lines

on mouseUp
  global NotesOn
  if NotesOn = 0 then
    set NotesRect to rect(the stageLeft + 5, the stageTop + 240, the stageLeft + 320 + 5, the stageBottom)
    set Notes to window "NotePad"
    set the rect of Notes to NotesRect
    set the fileName of Notes to "NotePad"
    if the machineType = 256 then
      set the windowType of Notes to 49
    else
      set the windowType of Notes to 5
    end if
    set the titleVisible of Notes to 1
    open(Notes)
    set NotesOn to 1
  else
    closeNotes()
  end if
end

on mouseDown
  button()
end